HPAVC/HPAVC CD-ROM.iso/CNBSRC.ZIP/OPTNREAD.INC

Text File | 1996-01-14 | 5KB | 252 lines

Procedure OptnREAD;

label
LEAVEtext, READtheTEXT;

Var
F, FX         :TEXT;
filename      :string[80];
nivenhripscode:string[80];
ANSIx         :byte{represents ansi to view from the TOP 5};
Oneline       :string[80];

{$I T_HDRimg.INC}
{$I WELCOME.INC}
{$I CATonVGA.INC}
{$I ANSIMONY.INC}
{$I CONTRIBS.INC}
{$I REVSYS.INC}
{$I REVIEWS.INC}
BEGIN
while xch <> (#13) do
begin
xch := ' ';
{content selections}
{Issue #3, The Scene, Halaster FIREs Back!}
textbackground(3);
textcolor(1);
{**********************************}
gotoxy(67,2){Issue #4};          {*}
write('Issue #5');               {*}
{**********************************}
gotoxy(65,3);         {*}
write('Contributors');              {*}
{**********************************}
gotoxy(64,4);
write('Ansi for Money');
{**********************************}
gotoxy(63,5);
write('Catbones  on VGA');
{**********************************}
gotoxy(64,6);                   {*}
write('Review  System');        {*}
{**********************************}
gotoxy(64,7);                   {*}
write('-Pack Reviews-');         {*}
{**********************************}
gotoxy(64,8);
write('Canvas Caravan');
{**********************************}
gotoxy(66,9);                   {*}
write('ANSi  Tips');
{**********************************}
gotoxy(67,10);
write('EXIT CnB');
{**********************************}

{Option Highlight}
textcolor(15);
if xselect = 1 then
   begin
   gotoxy(67,2);
   write('Issue #5');
   end;
if xselect = 2 then
   begin
   gotoxy(65,3);
   write('Contributors');
   end;
if xselect = 3 then
   begin
   gotoxy(64,4);
   write('Ansi for Money');
   end;
if xselect = 4 then
   begin
   gotoxy(63,5);
   write('Catbones  on VGA');
   end;
if xselect = 5 then
   begin
   gotoxy(64,6);
   write('Review  System');
   end;
if xselect = 6 then
   begin
   gotoxy(64,7);
   write('-Pack Reviews-');
   end;
if xselect = 7 then
   begin
   gotoxy(64,8);
   write('Canvas Caravan');
   end;
if xselect = 8 then
   begin
   gotoxy(66,9);
   write('ANSi  Tips');
   end;
if xselect = 9 then
   begin
   gotoxy(67,10);
   write('EXIT CnB');
   end;
xch := readkey;
    case xch of
      (#80)     :begin
                   if xselect < 9 then
                   xselect := xselect + 1;
                 end;
      (#72)     :begin
                   if xselect > 1 then
                   xselect := xselect - 1;
                 end;
      (#77)     :begin
                   if xselect < 9 then
                   xselect := xselect + 1 ;
                 end;
      (#75)     :begin
                   if xselect > 1 then
                   xselect := xselect - 1;
                 end;
      (#27)     :begin
                 xselect := 0;
                 EXIT;
                 end;
    end;
  end;

{Prepare selected option for reading}
{clearing out variables}
for x := 1 to 150 do
  begin
    xline[x] := ' ';
  end;
{____________________________________________________________________________}
{Program Exit}
if xselect = 0 then EXIT;

{Issue #3}
if xselect = 1 then
begin
WELCOME;
goto LEAVEtext;
end;
{Contributors}
if xselect = 2 then
begin
CONTRIBS;
goto LEAVEtext;
end;
{*}
if xselect = 3 then
begin
ANSI4MONeY;
goto LEAVEtext;
end;
{*}
if xselect = 4 then
begin
CATonVGA;
goto LEAVEtext;
end;
{*}
if xselect = 5 then
begin
REVSYS;
goto LEAVEtext;
end;
{*}
if xselect = 6 then
begin
REVIEWS;
goto LEAVEtext;
end;
{******************}
if xselect = 7 then
begin
{CNVSCARA;}
goto LEAVEtext;
end;
{Canvas Caravan}
if xselect = 8 then
begin
   {loadfile('ansi.tip');
   dispansinmem(true);}
goto LEAVEtext;
end;
{******************}
if xselect = 9 then
begin
xselect := 0;
EXIT;
end;
{The TOP 5 Ansis!}
{++ IN USE AND WORKING +++++++++++++++++++++++++++++++++++++++++++++++++++++}
{Begin
   If loadfile('c:\ansi\stc-inf.ans') Then dispansinmem(true)
      Else Writeln('You stupid schmuck, an error occurred while loading the ansi.');
End.}

{++ IN USE AND WORKING +++++++++++++++++++++++++++++++++++++++++++++++++++++}

{++ The following section of code was removed due to not knowing how to
allocate more memory to the buffer which held the ansis ++++++++++++++++++++}
{===========================================================================}
{if xselect = 15 then
begin
filename       := ('us-pir2.cnb');
nivenhripscode := filename;
dispans(filename);
goto LEAVEtext;
end;
if xselect = 16 then
begin
filename       := ('nc-nh1.cn1');
nivenhripscode := filename;
dispans(filename);
filename       := ('nc-nh1.cn2');
nivenhripscode := filename;
dispans(filename);
goto LEAVEtext;
end;
if xselect = 17 then
begin
filename       := ('nt-tea77.cnb');
nivenhripscode := filename;
dispans(filename);
goto LEAVEtext;
end;
if xselect = 18 then
begin
filename       := ('hm-ad.cnb');
nivenhripscode := filename;
dispans(filename);
goto LEAVEtext;
end;
if xselect = 19 then
begin
filename       := ('rk-cb1.ans');
nivenhripscode := filename;
dispans(filename);
goto LEAVEtext;
end;}
{End of TOP 5 block}
{===========================================================================}

LEAVEtext{finished viewing selection}:
xch := ' ';
END;